*******************************************************************************
*** Paper: Populist Attitudes and Foreign Policy Postures
*** Tables 2-5 in article (main effects models)
*** Figures 1-4 in article (interaction effects models)
*** Tables A8-A11 in appendix (interaction effects models)
********************************************************************************

*** PROGRAM SETUP COMMANDS
	set more off            // Disable partitioned output
	set dp period			// Use comma instead of dot for decimals
	clear all               // Start with a clean slate
	set linesize 80         // Line size limit to make output more readable
	macro drop _all         // clear all macros
	set scheme s1mono, permanent			// set graph scheme, e.g., cleanplots, plottig, plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"				// set font in graphs | "Arial" | "Times New Roman"

************************************************************************************************************************************
************************************************************************************************************************************


*** Open data set
	capture use "Data_clean.dta", clear


*** Model with host ideologies controlled (left-right specified as categorical)

*** DV: Posture 1: Militant internationalism
	regress mi_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1
	regress mi_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m2
	regress mi_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m3
	regress mi_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m4

*** DV: Posture 2: Cooperative internationalism
	regress ci_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m5
	regress ci_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m6
	regress ci_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m7
	regress ci_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m8


*** DV: Posture 3: Isolationism
	regress iso_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m9
	regress iso_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m10
	regress iso_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m11
	regress iso_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m12


*** DV: Posture 4: Global justice
	regress gj_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m13
	regress gj_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m14
	regress gj_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m15
	regress gj_index c.GoertzPopulism_0_1  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m16

*******************************
*** Table 2 in the article
*******************************
	esttab 	m1 m2 m3 m4 using "Tables/Table2_OLS_MI_bycountry_direct.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of militant internationalism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


*******************************
*** Table 3 in the article
*******************************
	esttab 	m5 m6 m7 m8 using "Tables/Table3_OLS_CI_bycountry_direct.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of cooperative internationalism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


*******************************
*** Table 4 in the article
*******************************
	esttab 	m9 m10 m11 m12 using "Tables/Table4_OLS_ISO_bycountry_direct.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of isolationism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


*******************************
*** Table 5 in the article
*******************************
	esttab 	m13 m14 m15 m16 using "Tables/Table5_OLS_GJ_bycountry_direct.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of global justice posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


************************************************************************************************************************************

************************************************************************************************************************************

*** 2. Model with left-right interaction (left-right as categorical)

*** DV: Posture 1: Militant internationalism
	regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m17
	regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m18
	regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m19
	regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m20

*** DV: Posture 2: Cooperative internationalism
	regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m21
	regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m22
	regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m23
	regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m24


*** DV: Posture 3: Isolationism
	regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m25
	regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m26
	regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m27
	regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m28


*** DV: Posture 4: Global justice
	regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m29
	regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m30
	regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m31
	regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m32


	esttab 	m17 m18 m19 m20 using "Tables/Appendix_OLS_MI_bycountry_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of militant internationalism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m21 m22 m23 m24 using "Tables/Appendix_OLS_CI_bycountry_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of cooperative internationalism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m25 m26 m27 m28 using "Tables/Appendix_OLS_ISO_bycountry_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of isolationism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m29 m30 m31 m32 using "Tables/Appendix_OLS_GJ_bycountry_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of global justice posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


******************************************************
*** Figure 1 in the article: Militant internationalism
******************************************************

	estimates restore m17
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Militant internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("France", size(huge)  box bexpand nospan) ///
								legend(off) ///
								text(.80 0.01 "Right", color(gs9) place(right) size(huge)) ///
								text(.33 0.01  "Left", color(gs0) place(right) size(huge)) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)

	estimates restore m18
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Militant internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Germany", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


	estimates restore m19
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Militant internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("UK", size(huge)  box bexpand nospan) ///
								legend(off) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)

	estimates restore m20
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Militant internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Italy", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)



*********************************************************
*** Figure 2 in the article: Cooperative internationalism
*********************************************************

	estimates restore m21
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Cooperative internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("France", size(huge)  box bexpand nospan) ///
								legend(off) ///
								text(.35 0.01 "Right", color(gs9) place(right) size(huge)) ///
								text(.90 0.01  "Left", color(gs0) place(right) size(huge)) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)

	estimates restore m22
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Cooperative internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Germany", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


	estimates restore m23
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Cooperative internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("UK", size(huge)  box bexpand nospan) ///
								legend(off) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


	estimates restore m24
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Cooperative internationalism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Italy", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)



*********************************************************
*** Figure 3 in the article: Isolationism
*********************************************************

	estimates restore m25
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Isolationism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("France", size(huge)  box bexpand nospan) ///
								legend(off) ///
								text(.75 0.01 "Right", color(gs9) place(right) size(huge)) ///
								text(.10 0.01 "Left", color(gs0) place(right) size(huge)) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


	estimates restore m26
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Isolationism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Germany", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


	estimates restore m27
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Isolationism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("UK", size(huge)  box bexpand nospan) ///
								legend(off) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


	estimates restore m28
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Isolationism", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Italy", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0)) ///
								xsize(3) ysize(2)


*********************************************************
*** Figure 4 in the article: Global justice
*********************************************************

	estimates restore m29
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Global justice", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("France", size(huge)  box bexpand nospan) ///
								legend(off) ///
								text(.25 0.01 "Right", color(gs9) place(right) size(huge)) ///
								text(.80 0.01 "Left", color(gs0) place(right) size(huge)) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0))  ///
								xsize(3) ysize(2)


	estimates restore m30
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Global justice", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Germany", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0))  ///
								xsize(3) ysize(2)


	estimates restore m31
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Global justice", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("UK", size(huge)  box bexpand nospan) ///
								legend(off) ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0))  ///
								xsize(3) ysize(2)


	estimates restore m32
						margins, at(GoertzPopulism_0_1=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(huge)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								ytitle("Global justice", size(huge)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(huge) grid gstyle(dot) glcolor(gs12)) ///	
								title("Italy", size(huge)  box bexpand nospan) ///
								legend(off)  ///
								plotregion(margin(zero) lcolor(black)) ///
								graphregion(margin(0 3 0 0))  ///
								xsize(3) ysize(2)



*********************************************************
*** Tables A8-A11 in the appendix 
*********************************************************

	esttab 	m17 m18 m19 m20 using "Tables/Appendix_Table_A8.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of militant internationalism posture on populism*ideology and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m21 m22 m23 m24 using "Tables/Appendix_Table_A9.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of cooperative internationalism posture on populism*ideology and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m25 m26 m27 m28 using "Tables/Appendix_Table_A10.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of isolationism posture on populism*ideology and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m29 m30 m31 m32 using "Tables/Appendix_Table_A11.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of global justice posture on populism*ideology and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1 "Populism (Goertz)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1 "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1 200.LeftRightAll_Rec#c.GoertzPopulism_0_1 400.LeftRightAll_Rec#c.GoertzPopulism_0_1 500.LeftRightAll_Rec#c.GoertzPopulism_0_1 600.LeftRightAll_Rec#c.GoertzPopulism_0_1 age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)

